10 REM ****************************************** 100 DIM 1000 VARNAME 10000 FOR 10005 VARNAME 10010 NEXT 10015 RETURN 1005 VARNAME 1010 FOR 10100 VARNAME 1015 VARNAME 1020 NEXT 1025 INC 1030 VARNAME 1035 VARNAME 1040 FOR 1045 IF 105 VARNAME 1050 NEXT 1055 ERASE 1060 VARNAME 1065 VARNAME 1070 VARNAME 1075 FOR 1076 IF 1077 VARNAME 1080 VARNAME 1085 VARNAME 1090 IF 1095 VARNAME 10999 REM ---> Poke ou non? 11 REM * Convertisseur SoundTracker-> STOS/AMOS * 110 VARNAME 1100 VARNAME 11000 IF 11005 RETURN 1105 VARNAME 11099 REM ---> Doke ou non? 1110 FOR 11100 IF 11105 RETURN 1115 VARNAME 11199 REM ---> Loke ou non? 1120 INC 11200 IF 11205 RETURN 1125 IF 11299 REM ---> SamCopy (Copie aussi pour adresses impaires) 1130 VARNAME 11300 IF 11305 IF 11310 PRINT 11315 VARNAME 11320 WHILE 11325 PRINT 11330 RETURN 1135 RETURN 115 VARNAME 1197 REM -------------------- 1198 REM Conversion chanson 1199 REM -------------------- 12 REM ****************************************** 120 VARNAME 125 VARNAME 130 VARNAME 135 VARNAME 140 VARNAME 145 VARNAME 150 VARNAME 155 VARNAME 160 VARNAME 165 VARNAME 170 VARNAME 175 VARNAME 180 VARNAME 185 VARNAME 190 VARNAME 199 REM ---> Addresse des routines 200 VARNAME 2000 VARNAME 2005 IF 2010 VARNAME 2015 VARNAME 2020 VARNAME 2025 IF 2030 VARNAME 2035 VARNAME 2040 VARNAME 2045 FOR 205 VARNAME 2050 VARNAME 2055 FOR 2060 VARNAME 2065 FOR 2070 VARNAME 2075 FOR 2080 VARNAME 2085 NEXT 2090 NEXT 2095 FOR 210 EXTENSION (Index #3) (Token 0x9c) 2100 VARNAME 2105 NEXT 2110 IF 2115 VARNAME 2120 RETURN 2997 REM --------------------- 2998 REM Conversion patterns 2999 REM --------------------- 3000 ERASE 3005 VARNAME 3010 PRINT 3015 VARNAME 3020 DOKE 3025 FOR 3030 FOR 3035 VARNAME 3040 DOKE 3045 GOSUB 3050 NEXT 3055 IF 3060 NEXT 3065 VARNAME 3070 RETURN 3099 REM ---> Conversion d'une voix 3100 VARNAME 3105 INC 3110 VARNAME 3115 VARNAME 3120 IF 3125 VARNAME 3130 IF 3135 ON 3140 GOSUB 3145 VARNAME 3150 IF 3155 VARNAME 3160 GOTO 3199 REM > Fin d'un pattern 3200 GOSUB 3205 IF 3210 VARNAME 3299 REM > Doke la longueur de la note 3300 IF 3305 RETURN 3399 REM > Arret de l'effet precedent 3400 ON 3405 IF 3410 RETURN 3415 GOSUB 3499 REM > Arpeggio 3500 IF 3505 RETURN 3509 REM > Slide up 3510 GOSUB 3515 DOKE 3519 REM > Slide down 3520 GOSUB 3525 DOKE 3529 REM > Portamento 3530 GOSUB 3535 DOKE 3539 REM > Vibrato 3540 GOSUB 3545 DOKE 3549 REM > Labels non utilises 3550 RETURN 3560 RETURN 3570 RETURN 3580 RETURN 3590 RETURN 3599 REM > Volume slide 3600 GOSUB 3605 DOKE 3609 REM > Position jump 3610 GOSUB 3615 VARNAME 3619 REM > Set volume 3620 GOSUB 3625 RETURN 3629 REM > Pattern break 3630 GOSUB 3635 VARNAME 3639 REM > Led on/off 3640 RETURN 3649 REM > Set tempo 3650 GOSUB 3655 DOKE 498 REM 499 REM ---> Boucle du programme 500 VARNAME 505 IF 510 OPEN IN 515 ERASE 520 BLOAD 524 REM ---> Quelle version de Soundtracker? 550 VARNAME 555 VARNAME 560 IF 599 REM ---> Calcule les tailles instruments et musique 600 VARNAME 605 VARNAME 649 REM ---> Converti les patterns 650 VARNAME 655 VARNAME 660 REPEAT 665 IF 670 GOSUB 675 VARNAME 680 INC 685 UNTIL 699 REM ---> Chanson 700 PRINT 705 VARNAME 749 REM ---> Instruments 750 PRINT 755 VARNAME 799 REM ---> Fabrique la banque AMOS! 800 VARNAME 805 VARNAME 810 VARNAME 815 LOKE 820 VARNAME 825 COPY 830 LOKE 834 REM Copie chanson 835 COPY 839 REM Copie melodie (patterns) 840 COPY 849 REM ---> Sauve la banque 850 CLW 855 PRINT 860 BSAVE 899 REM ---> Fait le menage 900 FOR 905 ERASE 910 NEXT 915 GOTO 997 REM ------------------------ 998 REM Conversion instruments 999 REM ------------------------ 9998 REM 9999 REM ---> Routines